home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 5 / DISK2058.ZIP / UNFAST.EXE / TSR.F < prev    next >
Text File  |  1980-01-01  |  1KB  |  52 lines
  1. ;===========================================================================
  2. ;=          TSR Skeleton (c) Peter Campbell, June 1989.           =
  3. ;===========================================================================
  4.  
  5. ;The parts of this program commented out are only used if you want to see how
  6. ;TSR will popup.
  7.  
  8. ;The "video=" statement is needed because some applications change video page.
  9.  
  10. #short
  11. print bios "TSR Resident (Shift-Shift to activate)."
  12. indo=indoso:inds=indoss
  13.  
  14. proc program
  15.     {
  16.     using=1
  17.     activate=0
  18.     old_psp=psp:psp reg cs
  19.  
  20. ;   oldpos=curpos
  21. ;   video=(0b800h-(800h*mono))+page*100h
  22. ;   open window w_here
  23. ;   wait for key=27
  24. ;   close window
  25. ;   curpos=oldpos
  26.  
  27.     psp old_psp
  28.     using=0
  29.     }
  30.  
  31. ;== Main entry =============================================================
  32.  
  33. activate=0  ;Currently not trying.
  34. on int 1
  35.     {
  36.     if ((peek 0|417h) and 3)=3 then activate=1
  37.     if activate and (inds[indo]b=0) then program
  38.     }
  39. on idle
  40.     {
  41.     if (activate=1) and (using=0) then program
  42.     }
  43.  
  44. stop resident
  45.  
  46. ;== Data ===================================================================
  47.  
  48. ;w_here:
  49. ;datab 0,0,60,18,77,22,15
  50. ;datab 22,2,2,'Press ESC.'
  51. ;datab 26
  52.